From: Dave Love <fx@gnu.org>
Date: Fri, 29 Nov 2002 20:07:36 +0000 (+0000)
Subject: (Frequire): Don't call LOADHIST_ATTACH if feature was
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29458
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69c9378660f13b93f27a32515f32d6d4c114fafc;p=emacs.git

(Frequire): Don't call LOADHIST_ATTACH if feature was
already provided.
---

diff --git a/src/fns.c b/src/fns.c
index 3774aeb9409..ce8efbfbcd1 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3245,14 +3245,14 @@ The normal messages at start and end of loading FILENAME are suppressed.  */)
   CHECK_SYMBOL (feature);
 
   tem = Fmemq (feature, Vfeatures);
-
-  LOADHIST_ATTACH (Fcons (Qrequire, feature));
   
   if (NILP (tem))
     {
       int count = SPECPDL_INDEX ();
       int nesting = 0;
 
+      LOADHIST_ATTACH (Fcons (Qrequire, feature));
+
       /* This is to make sure that loadup.el gives a clear picture
 	 of what files are preloaded and when.  */
       if (! NILP (Vpurify_flag))